home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / util / rexx / WebChat.lha / webchat / GBInstall < prev    next >
Encoding:
Text File  |  1997-10-31  |  6.0 KB  |  182 lines
  1. ; Installer for WebChat V1.0
  2. ; 
  3. ;   1.0 - It works but needs support for mailto.
  4. ;
  5. ; © W.P.Wilson - north@lantic16.demon.co.uk
  6.  
  7.  
  8. (set type (askchoice (prompt 'What do you want to do?')
  9.                      (help @askchoice-help)
  10.                      (choices 'Install'
  11.                               'Update')))
  12.  
  13. (procedure INS
  14.  (message '\nInstalling:\n\n'
  15.           'The Installing process needs two sections of HTML, a initial part & '
  16.           'an end part.\n'
  17.           'It also needs a local path for the finished HTML to go ready for uploading.\n'
  18.           'Please read help for futher information before proceeding!\n\n'
  19.           'This script "Web.rexx" and ALL associated files are provided '
  20.           'with NO warranties as to the compatibility , reliability etc. '
  21.           'Also if this program should do ANY type of damage to the user, the '
  22.           'computer hardware or software or anything else I AND no-one else may '
  23.           'be directly or indirectly connected with the fault -\n\n'
  24.           '* You use this script at your own risk! *')
  25.  
  26.  (set base (pathonly @icon))
  27.  
  28.  (set @default-dest (askdir (prompt 'Select the where you want Weblist & its file putting.\n'
  29.                                     '* A drawer wil NOT be created *')
  30.                             (help 'Just select where you want Weblist.\n'
  31.                                   'A Weblist: assign will be made there from '
  32.                                   'the user-startup on boot.')
  33.                             (default 'Work:')
  34.  )                  )
  35.  
  36.  (set html (askdir (prompt 'Select the where you want chat.html creating.')
  37.                             (help 'chat.html - the filename of the created HTML page. '
  38.                                   'Its path should be somewhere in your local backup '
  39.                                   'of your site.')
  40.                             (default 'Work:Mysitebackupdir/')
  41.  )                  )
  42.  
  43.  (set deftop (cat base '/HTML/default-top'))
  44.  
  45.  (set topsor (askfile (prompt 'Select the inital part of the chat.html.\n'
  46.                                '* Use the default-top one in the html '
  47.                                'drawer in you haven\'t made one *')
  48.                        (help 'The initial part is the bit containing the <HTML> & <BODY> '
  49.                              'tags & anything else you want to add such as a logo & help texts.')
  50.                        (default deftop)
  51.  )            )
  52.  
  53.  (set defbot (cat base '/HTML/default-end'))
  54.  
  55.  (set botsor (askfile (prompt 'Select the end part of the chat.html.\n'
  56.                                '* Use the default-end one in the html '
  57.                                'drawer in you haven\'t made one *')
  58.                        (help 'The end part is the bit containing the </HTML> & </BODY> '
  59.                              'tags & anything else you want to add such as a logo & help texts.')
  60.                        (default defbot)
  61.  )            )
  62.  
  63.  (ID)
  64. ; (MAILTO)
  65.  
  66.  (set exe (tackon base 'Install'))
  67.  (set fil (tackon @default-dest 'HTML'))
  68.  (set buf (cat base '/HTML/buffer'))
  69.  (set htm (tackon @default-dest 'htmlpath'))
  70.  (set cha (cat base '/HTML/chat.html'))
  71.  
  72.  (copyfiles (source exe)
  73.             (dest @default-dest)
  74.             (infos)
  75.             (all)
  76.  )
  77.  
  78.  (copyfiles (source topsor)
  79.             (dest fil)
  80.  )
  81.  
  82.  (copyfiles (source botsor)
  83.             (dest fil)
  84.  )
  85.  
  86.  (copyfiles (source buf)
  87.             (dest fil)
  88.  )
  89.  
  90.  (textfile (dest htm)
  91.            (append html)
  92.  )
  93.  
  94.  (copyfiles (source cha)
  95.             (dest html)
  96.  )
  97.  
  98.  (startup 'WebChat' (prompt 'WebChat needs a WebChat assign to be made.')
  99.                     (help 'This will edit your user-startup.')
  100.                     (command (cat 'ASSIGN WebChat: ' @default-dest))
  101.  )
  102. )
  103.  
  104. (procedure ID
  105.  
  106.  (message '\nWhen decoding a <FORM> output mail the script checks for '
  107.           'a predefined formid given by\n(chat is the default ID):\n\n'
  108.           '<INPUT type="HIDDEN" name="formid" value="chat">\n\n\n'
  109.           'This is used to check the script is not decoding an '
  110.           'incorrect mail.')
  111.  
  112.  (set NID (askstring (prompt 'Type in the chosen ID:\n'
  113.                              'Leave as chat if using default top/bottom files.')
  114.                      (help 'If you are starting with default files then use chat '
  115.                            'as the ID. Else choose the one your own web code defines.')
  116.                      (default 'chat')
  117.  )        )
  118.  
  119.  (textfile (dest 'ENVARC:Webchat.pref')
  120.            (append  NID)
  121.  )
  122. )
  123.  
  124. (procedure UPD
  125.  
  126.  (message '\nUpdate:\n\n'
  127.           'This will allow you to change your '
  128.           'initial & end parts of the html.\n'
  129.           'It will also allow you to change your '
  130.           '<FORM> ID.')
  131.  
  132.  (set ass 'WebChat:')
  133.  (set fil (cat ass 'HTML'))
  134.  (set deftop (cat fil '/default-top'))
  135.  (set defbot (cat fil '/default-bot'))
  136.  
  137.  (set topsor (askfile (prompt 'Select the inital part of the chat.html.\n'
  138.                                '* Use the default-top one in the html '
  139.                                'drawer in you haven\'t made one *')
  140.                        (help 'The initial part is the bit containing the <HTML> & <BODY> '
  141.                              'tags & anything else you want to add such as a logo & help texts.')
  142.                        (default deftop)
  143.  )            )
  144.  
  145.  (set botsor (askfile (prompt 'Select the end part of the chat.html.\n'
  146.                                '* Use the default-end one in the html '
  147.                                'drawer in you haven\'t made one *'
  148.                                ' - but remember to put in your email '
  149.                                'address in the mailto:')
  150.                        (help 'The end part is the bit containing the </HTML> & </BODY> '
  151.                              'tags & anything else you want to add such as a logo & help texts.')
  152.                        (default defbot)
  153.  )            )
  154.  
  155.  (ID)
  156.  
  157.  (copyfiles (source topsor)
  158.             (dest fil)
  159.  )
  160.  
  161.  (copyfiles (source botsor)
  162.             (dest fil)
  163.  )
  164.  
  165.  (copyfiles (source buf)
  166.             (dest fil)
  167.  )
  168.  
  169. )
  170.  
  171. ;(procedure MAILTO
  172. ;)
  173.  
  174. ;(procedure UNI
  175. ;(message 'Uninstall')
  176. ;)
  177.  
  178. (if (= type 0) (INS))
  179. (if (= type 1) (UPD))
  180. ;(if (= type 2) (UNI))
  181.  
  182. (exit)